home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / rst_xfer (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  32 lines
  1. 1 REM  RST/XFER   (LEXIKOS)  10/10/86
  2. 2 :
  3. 3 POKE808,234:POKE646,3
  4. 4 :DIMNA$(6,40):J=1:K=1:POKE53280,0:POKE53281,0:OPEN15,8,15:TL$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":BL$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT"[147]        [213]"TL$"[201]":PRINT" [213][192][192][192][192][192][192][194]     ROSTER XFER      [194][192][192][192][192][192][192][201]":PRINT" [194] V1.1 [202]"TL$"[203] 1986 [194]":FORI=1TO21:PRINT" [194]"SPC(36)"[194]":NEXT
  5. 5 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":PRINTTAB(5)"THIS PROGRAM WILL READ CLASS-":PRINTTAB(5)"MASTER ROSTER AND TRANSFER THE":PRINTTAB(5)"NAMES TO THE LEXIKOS ROSTER.":PRINTTAB(5)"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":PRINTTAB(5)" WARNING!  EXISTING LEXIKOS    
  6. 6 [153][163]5)" ROSTER WILL BE REPLACED WITH  ":[153][163]5)" THIS NEW CLASSMASTER ROSTER.  ":[153][163]3)" (Q)TO QUIT    (REUTRN) TO BEGIN
  7. 7 GETZ$:IFZ$=""THEN7
  8. 8 IFZ$="Q"THEN31
  9. 9 IFZ$<>CHR$(13)THEN7
  10. 10 :PRINT"[147]"TAB(13)"READING FILES":PRINTTAB(14)"PLEASE WAIT":OPEN6,8,6,"0:NEW ROSTER,S,R":GOSUB27:J=1:K=1:IFE<>0THENCLOSE6:CLOSE15:RUN
  11. 11 INPUT#6,L$,F$,S$:IFLEFT$(S$,2)="XX"THEN11
  12. 12 IFL$="SECTION"THEN11
  13. 13 IFL$="END"THENIFS$="SECTION"THENJ=J+1:K=1:GOTO11
  14. 14 IFL$="END"THENIFS$="ROSTER"THENCLOSE6:GOTO19
  15. 15 NA$(J,K)=F$+" "+L$
  16. 16 IFLEN(NA$(J,K))<20THENNA$(J,K)=NA$(J,K)+" ":GOTO16
  17. 17 IFLEN(NA$(J,K))>20THENNA$(J,K)=LEFT$(NA$(J,K),20)
  18. 18 K=K+1:GOTO11
  19. 19 PRINT"[147]          INSERT LEXIKOS DISK":PRINT"        PRESS RETURN WHEN READY
  20. 20 [161]Z$:[139]Z$[179][177][199](13)[167]20
  21. 21 [153]"LOAD"[163]18)"WAIT":[152]15,"I0":[152]15,"S0:RST":[159]6,8,6,"0:RST,S,W":[141]28:[139]E[177]1[167][138]
  22. 22 [129]J[178]1[164]35:[129]K[178]1[164]6:[139]NA$(K,J)[178]""[167]24
  23. 23 [152]6,NA$(K,J)
  24. 24 [130]:[130]:[160]6:[160]15:[153]"LOAD"[163]11)"TRANSFER COMPLETE.":[153][163]13)"<PRESS RETURN>
  25. 25 GETZ$:IFZ$<>CHR$(13)THEN25
  26. 26 GOTO31
  27. 27 :
  28. 28 INPUT#15,E,EM$,E1,E2:IFE=0THEN30
  29. 29 PRINT"[147]"EM$:PRINT#15,"I0":CLOSE9:FORI=1TO3000:NEXT:RUN
  30. 30 RETURN
  31. 31 POKE53280,0:POKE53281,0:POKE646,15:POKES,0:POKES+1,0:PRINT"[147]"TAB(18)"WAIT":PRINT"[144]LOAD";CHR$(34);"MENU";CHR$(34);",8[145][145][145]":POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:POKE198,5:END
  32.